object FEtiketForm: TFEtiketForm Left = 2 Top = 6 Width = 636 Height = 445 ActiveControl = DBGrid1 Caption = 'Fiyat Etiketi Bas�m� (Alfabetik S�ral�)' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] KeyPreview = True Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 14 object Panel2: TPanel Left = 0 Top = 0 Width = 628 Height = 418 HelpContext = 707 Align = alClient BevelInner = bvLowered BorderWidth = 3 Caption = 'Panel2' Color = 8404992 TabOrder = 0 object Label2: TLabel Left = 45 Top = 297 Width = 45 Height = 14 Caption = 'Aranan :' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Visible = False end object Label1: TLabel Left = 94 Top = 297 Width = 19 Height = 14 Caption = 'Ara' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Visible = False end object Image1: TImage Left = 8 Top = 297 Width = 34 Height = 15 Picture.Data = {} end object SpeedBtnFIR: TSpeedButton Left = 247 Top = 328 Width = 25 Height = 25 Hint = 'Firma Arama, Se�me' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EE0000000000 000EEE0777777777770EEE0777777777770FEE0778787878770EFE0778787878 770FEE0777777777770EEE0700700770770EEE00E00E0770770EEEEEEEEE0700 070EEEE8EE8E070E070EEEFFF8FE070E070EE8F8EFEE000E070EE8FFF888E8EE 070F8FFF8F888F8E070EEF888F8FFF8E000F88EEFF7FE888EEEE000000000000 0000000000000000000000000000000000000000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedBtnFIRClick end object SpeedBRAF: TSpeedButton Left = 21 Top = 328 Width = 25 Height = 25 Hint = 'Raf Yeri Bul,Se�' Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333FF33333333333330003FF3FFFFF3333777003000003333 300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333 330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000 333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000 339977FF777777773377000BFB03333333337773FF733333333F333000333333 3300333777333333337733333333333333003333333333333377333333333333 333333333333333333FF33333333333330003333333333333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedBRAFClick end object LabelLIS: TLabel Left = 21 Top = 313 Width = 250 Height = 15 Alignment = taCenter AutoSize = False Caption = 'L�STE �U AN ALFABET�K SIRALIDIR' Color = clRed Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object LabelBAR: TLabel Left = 281 Top = 312 Width = 329 Height = 15 Alignment = taCenter AutoSize = False Caption = 'Liste �u An KLAVYEDEN ARAMAYA AYARLI' Color = clBlack Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object DBGrid1: TDBGrid Left = 5 Top = 5 Width = 618 Height = 289 Align = alTop DataSource = DataSource1 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 0 TitleFont.Color = clRed TitleFont.Height = -11 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] OnKeyDown = DBGrid1KeyDown OnKeyPress = DBGrid1KeyPress end object BitBtnYAZ: TBitBtn Left = 475 Top = 328 Width = 137 Height = 25 Caption = 'Etiketleri Bast�r' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = BitBtnYAZClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 end object BitBtnFONT: TBitBtn Left = 475 Top = 357 Width = 137 Height = 25 Caption = 'Yaz� &Fontu' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 8 OnClick = BitBtnFONTClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FF3FFFFFFF33FFF003000000033 0000773777777733777703330033033330037FFF77F37F33377F700007330333 3003777777337FFFF77F303003337000007337F77F3377777773303073333033 003337F77F3337F377F337007333303300333777733337FF77F3330033333703 07333377F333377F7733330733333300033333773FF3F3777F33333399393300 033333337737FF777F333333339993307333333333777FF77333333333999930 3333333333777737333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 475 Top = 386 Width = 137 Height = 25 Font.Color = clRed Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 9 Kind = bkClose end object BtnMIK: TBitBtn Left = 281 Top = 328 Width = 165 Height = 25 Caption = 'B�y�k Miktarl�lar� Ayarla' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = BtnMIKClick end object BitBtn4: TBitBtn Left = 281 Top = 357 Width = 165 Height = 25 Hint = 'Eldeki Miktar kadar Etiket Say�s� Yazar' Caption = 'Eldeki Kadar Etik. Say. Yaz' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = BitBtn4Click NumGlyphs = 2 end object BitBtn5: TBitBtn Left = 281 Top = 386 Width = 165 Height = 25 Hint = 'Listedeki T�m Etiket Say�s�n� S�f�rlar' Caption = 'T�m Etiket Say�lar�n� Sil' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = BitBtn5Click Spacing = 1 end object BitBtnFIRMA: TBitBtn Left = 48 Top = 357 Width = 195 Height = 25 Caption = 'Firmaya G�re Etiket Say�s� Yaz' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BitBtnFIRMAClick Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EE0000000000 000EEE0777777777770EEE0777777777770FEE0778787878770EFE0778787878 770FEE0777777777770EEE0700700770770EEE00E00E0770770EEEEEEEEE0700 070EEEE8EE8E070E070EEEFFF8FE070E070EE8F8EFEE000E070EE8FFF888E8EE 070F8FFF8F888F8E070EEF888F8FFF8E000F88EEFF7FE888EEEE000000000000 0000000000000000000000000000000000000000} end object BtnFIRM: TBitBtn Tag = 2 Left = 49 Top = 328 Width = 195 Height = 25 Caption = 'Listeyi Yere G�re S�rala' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = BtnFIRMClick end object BitBtn1: TBitBtn Left = 20 Top = 357 Width = 25 Height = 25 Hint = 'Yard�m(F1 Tu�u)' HelpContext = 707 Caption = ' ' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 10 Kind = bkHelp Margin = 3 Spacing = 17 end object PanelYER: TPanel Left = 8 Top = 248 Width = 163 Height = 78 BevelInner = bvLowered BorderWidth = 1 Color = clRed TabOrder = 11 Visible = False OnExit = PanelYERExit OnMouseDown = PanelYAZMouseDown object Label14: TLabel Left = 46 Top = 5 Width = 61 Height = 14 Caption = 'Aranan Yer' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object EditYER: TEdit Left = 38 Top = 20 Width = 89 Height = 22 TabOrder = 0 end object Button1: TButton Left = 7 Top = 48 Width = 65 Height = 23 Caption = 'Tamam' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 91 Top = 48 Width = 65 Height = 23 Caption = 'Vazge�' TabOrder = 2 OnClick = Button2Click end end object BtnBAR: TBitBtn Left = 48 Top = 386 Width = 195 Height = 25 Caption = 'Barkodla Ara (F5 Tu�u)' Font.Color = clRed Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = BtnBARClick end object BitBtn2: TBitBtn Left = 20 Top = 386 Width = 25 Height = 25 Hint = '�r�n Listesi' Caption = ' ' ParentShowHint = False ShowHint = True TabOrder = 12 OnClick = BitBtn2Click Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333330003333333333330FFF0333300000330FFF033330D DD03330F0900030DDD03330F099903000003330F0999030EEE0330000099030E EE0333099999030EEE0333099999000000003330999033333333333309033333 3333333309033333333333300000333333333333333333333333000000000000 0000000000000000000000000000000000000000} end end object PanelMIK: TPanel Left = 85 Top = 263 Width = 314 Height = 95 BevelInner = bvLowered BevelWidth = 2 BorderWidth = 1 BorderStyle = bsSingle Color = clBlack TabOrder = 2 Visible = False OnMouseDown = PanelYAZMouseDown object Label3: TLabel Left = 9 Top = 12 Width = 44 Height = 32 AutoSize = False Caption = 'Etiket Miktar�' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label4: TLabel Left = 98 Top = 13 Width = 102 Height = 45 AutoSize = False Caption = 'adetten fazla olan �r�nlerin etiket miktar�n� ' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label5: TLabel Left = 237 Top = 10 Width = 68 Height = 28 AutoSize = False Caption = 'adet olarak listeye yaz' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object MaskEdit1: TMaskEdit Left = 53 Top = 13 Width = 39 Height = 22 EditMask = '!9999;0;_' MaxLength = 4 TabOrder = 0 Text = '50' end object MaskEdit2: TMaskEdit Left = 200 Top = 13 Width = 29 Height = 22 EditMask = '!99;0;_' MaxLength = 2 TabOrder = 1 Text = '5' end object BtnTAMMIK: TBitBtn Left = 11 Top = 57 Width = 81 Height = 25 Caption = '&Tamam' Default = True Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BtnTAMMIKClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333377F3333333333000033334224333333333333 337337F3333333330000333422224333333333333733337F3333333300003342 222224333333333373333337F3333333000034222A22224333333337F337F333 7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224 33333337F73337F337F33333000033A33333A222433333337333337F337F3333 0000333333333A222433333333333337F337F33300003333333333A222433333 333333337F337F33000033333333333A222433333333333337F337F300003333 33333333A222433333333333337F337F00003333333333333A22433333333333 3337F37F000033333333333333A223333333333333337F730000333333333333 333A333333333333333337330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end object BtnVAZMIK: TBitBtn Left = 215 Top = 57 Width = 81 Height = 25 Cancel = True Caption = '&Vazge�' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = BtnVAZMIKClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333000033337733333333333333333F333333333333 0000333911733333973333333377F333333F3333000033391117333911733333 37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333 911117111117333337F3337F733337F3000033333911111111733333337F3337 3333F7330000333333911111173333333337F333333F73330000333333311111 7333333333337F3333373333000033333339111173333333333337F333733333 00003333339111117333333333333733337F3333000033333911171117333333 33337333337F333300003333911173911173333333373337F337F33300003333 9117333911173333337F33737F337F33000033333913333391113333337FF733 37F337F300003333333333333919333333377333337FFF730000333333333333 3333333333333333333777330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end end object PanelYAZ: TPanel Left = 341 Top = 8 Width = 279 Height = 366 BevelInner = bvLowered BevelWidth = 2 BorderWidth = 1 BorderStyle = bsSingle Color = clSilver Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 1 Visible = False OnMouseDown = PanelYAZMouseDown object Bevel2: TBevel Left = 4 Top = 262 Width = 265 Height = 93 Style = bsRaised end object Bevel1: TBevel Left = 8 Top = 46 Width = 256 Height = 50 ParentShowHint = False ShowHint = False Style = bsRaised end object Label9: TLabel Left = 11 Top = 6 Width = 64 Height = 14 Caption = 'Sayfa Say�s�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 156 Top = 6 Width = 66 Height = 14 Caption = 'Etiket Say�s�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 154 Top = 71 Width = 25 Height = 14 Caption = 'Sat�r' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 14 Top = 71 Width = 32 Height = 14 Caption = 'S�t�n' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 11 Top = 50 Width = 249 Height = 14 Alignment = taCenter AutoSize = False Caption = 'Etiket Ba�lang�� Noktas�' Color = clRed Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object DBTextSGen: TDBText Left = 9 Top = 150 Width = 59 Height = 17 DataField = 'SayfaGenislik' DataSource = DS_ETK Font.Color = clRed Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False end object DBTextSayfaYuk: TDBText Left = 140 Top = 150 Width = 67 Height = 17 DataField = 'SayfaYukseklik' DataSource = DS_ETK Font.Color = clRed Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 12 Top = 99 Width = 247 Height = 46 AutoSize = False Caption = 'Etiketlerinizi Bast�rmadan �nce Yaz�c� Sayfa Tipini Kullan�c� Ta' + 'n�ml�(Custom) Se�ip Sayfa Boyutunu A�a��daki Boyutlarda Tan�mlay' + '�n.' WordWrap = True end object Label12: TLabel Left = 74 Top = 150 Width = 52 Height = 14 Caption = 'mm gen.,' end object Label13: TLabel Left = 210 Top = 149 Width = 48 Height = 14 Caption = 'mm y�k.' end object Label27: TLabel Left = 7 Top = 264 Width = 260 Height = 33 Alignment = taCenter AutoSize = False Caption = '�r�nden Ba��ms�z Etiket Bast�rmak i�in Adet ve Fiyat Yaz�p '#39'Ba��' + 'ms�z Etiket Bas'#39' Tu�una Bas�n' Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False WordWrap = True end object Label25: TLabel Left = 17 Top = 305 Width = 26 Height = 14 Caption = 'Adet' end object Label26: TLabel Left = 103 Top = 305 Width = 25 Height = 14 Caption = 'Fiyat' end object BtnTAMYAZ: TBitBtn Left = 14 Top = 233 Width = 111 Height = 25 Caption = '&Hepsini Bast�r' Default = True Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = BtnTAMYAZClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333377F3333333333000033334224333333333333 337337F3333333330000333422224333333333333733337F3333333300003342 222224333333333373333337F3333333000034222A22224333333337F337F333 7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224 33333337F73337F337F33333000033A33333A222433333337333337F337F3333 0000333333333A222433333333333337F337F33300003333333333A222433333 333333337F337F33000033333333333A222433333333333337F337F300003333 33333333A222433333333333337F337F00003333333333333A22433333333333 3337F37F000033333333333333A223333333333333337F730000333333333333 333A333333333333333337330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end object BtnVAZYAZ: TBitBtn Left = 144 Top = 233 Width = 111 Height = 25 Cancel = True Caption = '&Vazge�' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = BtnVAZYAZClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333000033337733333333333333333F333333333333 0000333911733333973333333377F333333F3333000033391117333911733333 37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333 911117111117333337F3337F733337F3000033333911111111733333337F3337 3333F7330000333333911111173333333337F333333F73330000333333311111 7333333333337F3333373333000033333339111173333333333337F333733333 00003333339111117333333333333733337F3333000033333911171117333333 33337333337F333300003333911173911173333333373337F337F33300003333 9117333911173333337F33737F337F33000033333913333391113333337FF733 37F337F300003333333333333919333333377333337FFF730000333333333333 3333333333333333333777330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end object Edit1: TEdit Left = 11 Top = 21 Width = 99 Height = 23 Color = clNavy Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 0 end object Edit2: TEdit Left = 156 Top = 21 Width = 104 Height = 23 Color = clNavy Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 1 end object SpinEBSAT: TSpinEdit Left = 186 Top = 66 Width = 57 Height = 23 MaxLength = 2 MaxValue = 10 MinValue = 1 TabOrder = 3 Value = 1 OnExit = SpinEBSUTExit end object SpinEBSUT: TSpinEdit Left = 48 Top = 68 Width = 57 Height = 23 MaxLength = 2 MaxValue = 10 MinValue = 1 TabOrder = 2 Value = 1 OnExit = SpinEBSUTExit end object BtnETK: TBitBtn Left = 14 Top = 171 Width = 111 Height = 25 Caption = 'Etiket Tan�m' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = BtnETKClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF FFF07F3FF3FF3FFF3FF70F00F00F000F00F07F773773777377370FFFFFFFFFFF FFF07F3FF3FF33FFFFF70F00F00FF00000F07F773773377777F70FEEEEEFF0F9 FCF07F33333337F7F7F70FFFFFFFF0F9FCF07F3FFFF337F737F70F0000FFF0FF FCF07F7777F337F337370F0000FFF0FFFFF07F777733373333370FFFFFFFFFFF FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC C880733777777777733700000000000000007777777777777777333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object BtnEtkHesap: TBitBtn Left = 143 Top = 171 Width = 111 Height = 25 Caption = 'Gerekli Etk.Say�s�' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = BtnEtkHesapClick NumGlyphs = 2 end object BitBtnTEK: TBitBtn Left = 14 Top = 202 Width = 240 Height = 25 Caption = 'Sadece ��aretli �r�n�n Etiketini Bast�r' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 8 OnClick = BtnTAMYAZClick NumGlyphs = 2 end object EditAdet: TEdit Left = 47 Top = 300 Width = 34 Height = 22 TabOrder = 9 Text = '1' end object EditFIYAT: TEdit Left = 130 Top = 300 Width = 135 Height = 22 TabOrder = 10 end object BtnBAG: TBitBtn Left = 48 Top = 326 Width = 169 Height = 25 Caption = 'Ba��ms�z Etiket Bas' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 11 OnClick = BtnBAGClick end end object DataSource1: TDataSource DataSet = FEtkBasTAB OnDataChange = DataSource1DataChange Left = 247 Top = 13 end object FEtkBasTAB: TTable DatabaseName = 'ECZ' IndexName = 'ILACADI' TableName = 'urun.db' Left = 220 Top = 13 object FEtkBasTABILACAD: TStringField DisplayLabel = '�r�n Ad�' DisplayWidth = 32 FieldName = 'ILACAD' ReadOnly = True Required = True Size = 36 end object FEtkBasTABFIRMANO: TIntegerField Alignment = taLeftJustify DisplayLabel = 'F�RMA' DisplayWidth = 21 FieldName = 'FIRMANO' ReadOnly = True OnGetText = FEtkBasTABFIRMANOGetText end object FEtkBasTABYER: TStringField DisplayLabel = 'Raf Yeri' FieldName = 'YER' Size = 7 end object FEtkBasTABFIYAT: TCurrencyField DisplayLabel = 'Fiyat�' DisplayWidth = 13 FieldName = 'FIYAT' ReadOnly = True end object FEtkBasTABFIYATARIH: TDateField DisplayLabel = 'Fyt.Trh.' DisplayWidth = 8 FieldName = 'FIYATARIH' ReadOnly = True DisplayFormat = 'dd/mm/yy' end object FEtkBasTABETIKET: TIntegerField DisplayLabel = 'Etk.Mik' DisplayWidth = 6 FieldName = 'ETIKET' end object FEtkBasTABMIKTAR: TIntegerField DisplayLabel = 'Elde' DisplayWidth = 4 FieldName = 'MIKTAR' ReadOnly = True end object FEtkBasTABILACKOD: TStringField FieldName = 'ILACKOD' Visible = False Size = 13 end end object FontDialog1: TFontDialog Font.Color = clBlack Font.Height = -12 Font.Name = 'Courier New' Font.Pitch = fpFixed Font.Style = [] Device = fdBoth MinFontSize = 0 MaxFontSize = 0 Left = 560 Top = 392 end object PrintDialog1: TPrintDialog Left = 288 Top = 384 end object QTUMETK: TQuery DatabaseName = 'ECZ' SQL.Strings = ( 'UPDATE URUN' 'SET ETIKET=MIKTAR' 'WHERE MIKTAR>0') Left = 408 Top = 384 end object QSIFIRLA: TQuery DatabaseName = 'ECZ' SQL.Strings = ( 'UPDATE URUN' 'SET ETIKET=NULL' 'WHERE ETIKET IS NOT NULL') Left = 224 Top = 352 end object EczAdTab: TTable DatabaseName = 'ECZ' TableName = 'EKIM.DB' Left = 64 Top = 168 object EczAdTabEADI: TStringField FieldName = 'EADI' Size = 35 end end object QTOPETK: TQuery DatabaseName = 'ECZ' SQL.Strings = ( 'SELECT ' 'SUM(URUN.ETIKET)' 'FROM URUN ' 'WHERE URUN.ETIKET>0') Left = 288 Top = 96 object QTOPETKSUMofETIKET: TFloatField FieldName = 'SUM of ETIKET' end end object QMIKBUYUK: TQuery DatabaseName = 'ECZ' Params.Data = { 01000200067665726D696B0003040000000000000005656C6D696B0003040000 0000000000} SQL.Strings = ( 'UPDATE URUN' 'SET ETIKET=:vermik' 'WHERE ETIKET>:elmik') Left = 224 Top = 352 end object FirmTab: TTable DatabaseName = 'ECZ' ReadOnly = True TableName = 'FIRMA.DB' Left = 224 Top = 320 object FirmTabFIRMANO: TIntegerField FieldName = 'FIRMANO' end object FirmTabFIRMAD: TStringField FieldName = 'FIRMAD' Size = 36 end end object QFIRMA: TQuery DatabaseName = 'ECZ' Params.Data = {01000100094669726D614E6F737500030400000000000000} SQL.Strings = ( 'UPDATE URUN' 'SET ETIKET=MIKTAR' 'WHERE (MIKTAR>0)' 'AND (FIRMANO=:FirmaNosu)') Left = 168 Top = 296 end object FontTab: TTable DatabaseName = 'ECZ' TableName = 'FONT.DB' Left = 496 Top = 384 object FontTabBIRIM: TStringField FieldName = 'BIRIM' Size = 9 end object FontTabFONTADI: TStringField FieldName = 'FONTADI' Size = 35 end object FontTabFONTSIZE: TSmallintField FieldName = 'FONTSIZE' end object FontTabCOLOR: TIntegerField FieldName = 'COLOR' end object FontTabSTYLE: TStringField FieldName = 'STYLE' Size = 1 end end object T_ETK: TTable DatabaseName = 'ECZ' TableName = 'Etiket.DB' Left = 296 Top = 144 object T_ETKYBYukardan: TSmallintField FieldName = 'YBYukardan' end object T_ETKYBSoldan: TSmallintField FieldName = 'YBSoldan' end object T_ETKSKacSutun: TSmallintField FieldName = 'SKacSutun' end object T_ETKSKacSatir: TSmallintField FieldName = 'SKacSatir' end object T_ETKEtiketBoyu: TSmallintField FieldName = 'EtiketBoyu' end object T_ETKEtiketEni: TSmallintField FieldName = 'EtiketEni' end object T_ETKEtkAraUzEn: TSmallintField FieldName = 'EtkAraUzEn' end object T_ETKEtkAraUzBoy: TSmallintField FieldName = 'EtkAraUzBoy' end object T_ETKTLyeriSOL: TSmallintField FieldName = 'TLyeriSOL' end object T_ETKTLyeriUST: TSmallintField FieldName = 'TLyeriUST' end object T_ETKEczYeriSOL: TSmallintField FieldName = 'EczYeriSOL' end object T_ETKEczYeriUST: TSmallintField FieldName = 'EczYeriUST' end object T_ETKUrunYeriSOL: TSmallintField FieldName = 'UrunYeriSOL' end object T_ETKUrunYeriUST: TSmallintField FieldName = 'UrunYeriUST' end object T_ETKPROrien: TStringField FieldName = 'PROrien' Size = 1 end object T_ETKUrunVar: TStringField FieldName = 'UrunVar' Size = 1 end object T_ETKSayfaGenislik: TSmallintField FieldName = 'SayfaGenislik' end object T_ETKSayfaYukseklik: TSmallintField FieldName = 'SayfaYukseklik' end object T_ETKFONTADI: TStringField FieldName = 'FONTADI' Size = 35 end object T_ETKFONTSIZE: TSmallintField FieldName = 'FONTSIZE' end object T_ETKCOLOR: TIntegerField FieldName = 'COLOR' end object T_ETKSTYLE: TStringField FieldName = 'STYLE' Size = 1 end end object DS_ETK: TDataSource DataSet = T_ETK Left = 272 Top = 144 end object FontDialogU: TFontDialog Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Device = fdBoth MinFontSize = 0 MaxFontSize = 0 Left = 472 Top = 376 end end